home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0669.ZIP / SETCSR.ASM < prev    next >
Assembly Source File  |  1987-03-15  |  936b  |  31 lines
  1.         PAGE    ,132
  2. ;****************************************************************************;
  3. ;* Program:          SETCSR                                                 *;
  4. ;* Author:           Greg Thielen, Innovative Systems Design                *;
  5. ;* Date written:     March 15, 1987                                         *;
  6. ;* Description:      Set cursor on or off.                                  *;
  7. ;****************************************************************************;
  8.  
  9.     assume    cs:code_seg
  10.  
  11. code_seg    segment
  12.     org    0
  13.  
  14. set_cursor    proc    far
  15.         push    bx            ;Save BX
  16.         mov    ah,03            ;Read corsor position (size)
  17.         int    10h
  18.         or    ch,20h            ;Set cursor off
  19.         pop    bx            ;Restore BX
  20.         cmp    byte ptr ds:[bx],'1'    ;Set cursor on?
  21.         jne    set_size        ;No, skip set on
  22.         and    ch,1Fh            ;Yes, set cursor on
  23. set_size:    mov    ah,01            ;Set cursor size
  24.         int    10h
  25.         ret                ;Return
  26. set_cursor    endp
  27.  
  28. code_seg    ends
  29.  
  30.         end    set_cursor
  31.